home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / quit_o.Dxr / 00007_Main Scripts.ls < prev    next >
Encoding:
Text File  |  1996-09-02  |  334 b   |  17 lines
  1. on startMovie
  2.   global NoQuiz, PopFrom, FrameFrom, menu, Section
  3.   set NoQuiz to 1
  4.   ScoreDisplay()
  5.   put line 1 of field "Score" into field "Final Score"
  6.   if field "Final Score" < 0 then
  7.     put 0 into field "Final Score"
  8.   end if
  9.   if FrameFrom = "Startup Menu" then
  10.     go("NoScore")
  11.   end if
  12. end
  13.  
  14. on idle
  15.   CheckHilite(6, 7)
  16. end
  17.